home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1019 < prev    next >
Encoding:
Text File  |  1998-01-08  |  3.3 KB  |  69 lines
  1. /t0{g s1 w 1 index 0 ne{3 1 roll add exch}{3 -1 roll pop}ifelse
  2.  z4 z7 0 eq or z5 and nochdev not and{z7 0 eq nochp not and
  3.  {mtx currentmatrix nulldevice z np 0 0 m s1 T charpath{flattenpath}stopped{F}
  4.  {pathbbox 4 copy 3 -1 roll ne 3 1 roll ne and{T}{p4 F}ifelse}ifelse}{F}ifelse
  5.  {T}{z4{z0 z1 z2 z3 T}{F}ifelse}ifelse}{F}ifelse G{10 -4 roll 4
  6.  {5 -1 roll add 4 1 roll}repeat setcachedevice}{setcharwidth p4}ifelse}B
  7. /t1{g np 0 0 m o F charpath n G}B
  8. /newmm{dup/FontType get 0 eq
  9.  {dup maxlength dict begin cf currentdict end dup/FDepVector 2 copy get
  10.  [exch 6 index exch 6 index exch{newmm 3 1 roll}forall p2]put dup}
  11.  {18 dict begin/FontMatrix[1 0 0 1 0 0]def/FontType 3 def
  12.  /Encoding xpv def/FontBBox[0 0 1 1]def/df 1 index def/df1 0 def
  13.  1 index 0 ge{/StyleCode 2 index def/TrapWidth tpamt def}if
  14.  df/FontMatrix get 6a copy mark df/FontBBox get aload pop counttomark 4 eq
  15.  {5 -1 roll pop 4 index dtransform/z3 X/z2 X 3 -1 roll dtransform/z1 X/z0 X T}
  16.  {cleartomark pop F}ifelse/z4 X
  17.  1 index 0 ge{df/FontType get 3 ne}{F}ifelse/z5 X df/MFontType known not dup/z6 X
  18.  {df/PaintType 2 copy known{get 0 eq{0}{1}ifelse}{pop pop 1}ifelse}{1}ifelse/z7 X
  19.  /df1/q 6 dict begin/FontMatrix[1 0 0 1 0 0]def/FontType 3 def
  20.  /Encoding xpv def/FontBBox[0 0 1 1]def
  21.  z7 0 eq{/BuildChar{pop begin xpwd begin df setfont
  22.  d1 neg d1 neg d1 d1 0 t0 s1 d1 t1 end end}def}
  23.  {/BuildChar{pop begin xpwd begin df setfont 0 0 d0 d0 0 t0
  24.  s1 0 0 smc d0 0 smc d0 d0 smc 0 d0 m M end end}def}ifelse
  25.  currentdict end definefont def
  26.  /BuildChar{exch begin xpwd begin dup s1 0 3 -1 roll put z6 ss and
  27.  {df/Encoding 2 copy known{get exch get dup/.notdef ne{df/CharStrings 2 copy known
  28.  {get exch known not}{p3 T}ifelse}{pop T}ifelse}{p3 T}ifelse}{pop F}ifelse dup
  29.  {symf begin xpwd begin}if bcar StyleCode 2 mul z7 add get exec{end end}if end end}def
  30.  currentdict end}ifelse 3 index exch definefont exch pop}B
  31. /c{currentrgbcolor dup 4 1 roll eq 3 1 roll eq and{bkc 0 get 0 eq
  32.  {1 currentgray sub H}{gtc}ifelse}{1 H}ifelse}B
  33. /bcar[
  34.  {df setfont .05/d0 X
  35.  TrapWidth .24 add psx div .012 2 copy lt{exch}if pop/d1 X 
  36.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  37.  s1 g d0 .01 add d0 vtd not{neg}if t 0 0 smc g df1 setfont 0 0 smc G G
  38.  g c 0 0 smc G df1 setfont 0 0 m M}
  39.  
  40.  {df setfont 1 psx div dup/d0 X 2. div dup/d3 X .05 add/d2 X
  41.  g s1 w G 1 index 0 ne{exch d2 add exch}if setcharwidth
  42.  s1 g d2 .01 add d2 vtd not{neg}if t 0 0 smc G
  43.  g df1 setfont 0 0 smc G c d3 d3 m M}
  44.  
  45.  {df setfont TrapWidth .24 add psx div .012 2 copy lt{exch}if pop/d1 X
  46.  g s1 w G setcharwidth g c s1 0 0 smc G df1 setfont 0 0 m M}
  47.  
  48.  {df setfont 1 psx div/d0 X
  49.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  50.  g df1 setfont s1 0 0 smc G c d0 2. div dup m M}
  51.  
  52.  {df setfont .03/d0 X TrapWidth dup 0 lt
  53.  {neg psx div 0 2 copy lt{exch}if pop neg}
  54.  {psx div 0 2 copy lt{exch}if pop}ifelse .03 add/d1 X
  55.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  56.  s1 d0 2 div dup m M d1 0 ne{d1 0 lt{d1 neg/d1 X gtc}if
  57.  df1 setfont s1 d0 2 div dup m M}if}
  58.  
  59.  {df setfont .03/d0 X 0 0 d0 d0 d0 t0 
  60.  s1 0 0 smc d0 0 smc d0 d0 smc 0 d0 m M}
  61.  
  62.  {df setfont
  63.  TrapWidth dup 0 lt{neg}if psx div 0 2 copy lt{exch}if pop/d1 X
  64.  TrapWidth 0 lt{g s1 w G setcharwidth s1 0 0 smc gtc df1 setfont}
  65.  {d1 neg d1 neg d1 d1 0 t0 s1 dup d1 t1}ifelse 0 0 m M}
  66.  
  67.  {df setfont g s1 w G setcharwidth s1 0 0 m M}
  68. ] def
  69.